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PHDUT = PROCESS HEADER UTILITIES 16SEP=1984 00:55:46 VAX/VMS Macro v06-00 p 
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«TITLE PHDUTL = PROCESS HEADER UTILITIES 
: - IDENT 04-000" 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
IGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


RIGHTS RESERVED. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

WITH THE TERMS OF SUCH LICENSE AND WITH THE 
N OF C ARE OR ANY OTHER 
S_THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORA on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 
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+ 
FACILITY: EXECUTIVE, MEMORY MANAGEMENT UTILITIY ROUTINES 
ABSTRACT: 


ENVIRONMENT: KERNEL MODE, RUNNING MOSTLY AT IPL ASTDEL WITH THE 
PROCESS HEADER LOCKED 


-SBTTL HISTORY ; DETAILED 
AUTHOR: PETER H. LIPMAN . CREATION DATE: 23-SEP-76 
MODIFIED BY: 


V03-007 wMC0003 Wayne Cardoza gonduh=t0A 
Limit process header expansion to quota/2. 


V03-006 wMc0002 Wayne Cardoza 02-Dec-1983 
PSTBASMAX is now longword. 


v03-005 wMc0001 Uprne Cardoza 07-Sep-1983 
Fix the test for EXPANDPHD bugcheck. 


v03-004 LJK0210 aurence J. Kenah 21-Jun-1983 
Add code to deallocate image control blocks that were allocated 
as part cf image activation. Eliminate call to IACSCLRIACLOCK. 


v03-003 1TCM0001 Trudy C. Matthews }~Agr= 1983 
Change references to working set fields in PHD so that 
they are used as unsigned words. 
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V03-002 RNGOOD2 Rod N. Gamache 

Use longword displacement for call to MMG 


cro V04-00 Page 
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; EXTERNAL SYMBOLS: 


EQUATED SYMBOLS: 
OWN STORAGE: 


MACROS: 
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TIES 16-SEP-1984 00:55:4 AX/VMS Macro _V04-00 
» DELETE IMAGE PAG 878Eb=] obc ; 746:0 USYS SRCIPHDUTL MARS 1 


«-SBTTL IMGRESET = IMAGE RESET, DELETE IMAGE PAGES 
p++ 
; FUNCTIONAL DESCRIPTION: 
CALLING SEQUENCE: 
BSBW MMGSIMGRESET 
MUST BE CALLED FROM KERNEL MODE AT IPL = 0 


INPUT PARAMETERS: 

R4 = PROCESS CONTROL BLOCK ADDRESS 
IMPLICIT INPUTS: 

NONE 


OUTPUT PARAMETERS: 


DEALLOCATES ALL_ IMAGE eth s' BLOCKS 

DELETES ALL PAGES IN PQ SPA 

DELETES ALL PAGES IN P1 SPACE EXCEPT THE FIXED PORTION 
RESETS THE PROCESS SECTION 

RESETS THE WORKING SET SIZE TO THE DEFAULT 


RO = ERROR STATUS CODE 
IMPLICIT QUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


LAR RARAAAASAAAALASAAAL ELSA AL ELSE RES E ERR ESET ESSERE REESE RS SESS RE RRS ERR ES 


eeaeeeeereeereere THE FOLLOWING CODE MAY BE PAGED txeeeeraneeaneene 


; % 
BSBW MMGSWSPEAKCHK sENABLE OR DISABLE WORKING SET PEAK CHECK 
3 DEALLOCATE ALL IMAGE CONTROL BLOCKS THAT DESCRIBE CURRENTLY ACTIVATED IMAGES 


ee ee ee ce ee ee ce el el el el ee eel el eel eel eel cel el el eel el eel cel el cel eel cel cel cl eel el el cel eel ell cel el eel cel cel eel cel ell eel eel cee cel cel el el 


40 

41 .PSECT YSEXEPAGED 

4g : PRRZAAASZALAAAALASAALAALALALESAALELLAESLASLESASALEALALEEALLELASLAESLESLASLE RS 
44: 

45 MMGSIMGRESET:: 

46 PUSHL R :PRESERVE R5 

4 MOVL G4CTLSGL_PHD,RS [R5=PHD ADDRESS 

48 JSB MMGSEXTRADYNWS SFORCE EXTRA DYNAMIC WS COMPUTATION 
$6 BSBW RMSRESET *RESET RMS CONT 

AI 


nN 3 
PHDUT - PROCESS HEADER UTILITIES 16-SEP-1984 00:55:46 VAX/VMS Macro V04-00 Page 
v04=000 IMGRESET = IMAGE RESET, DELETE IMAGE PAG sets 9 80:22:68 SYS.SRCJPHDUTL.MAR; 1 ° 
15 153 
52. 00000000'GF 7€ 13 4 MOVAQ G*IACSGL_ICBFL,R2 ;R2 = ADDRESS OF FREE LIST 
51 09900000" GF 7E O001C #1 : MOVAQ GrLACSGL | IMAGE_LIST,R1 ;R1 = LISTHEAD OF ICBS 
50 0081 OF 157 5$: REMQUE @(R1 SREMOVE NEXT ENTRY 
06 1D 1 : BV 10$ LIST EMPTY = ALL "DON E 
0482 6 OF 9 15 INSQUE (RO),@4(R2) ONSERT AT END OF FREE LIST 
F4 p 160 BRB 54 :GO BACK FOR MORE 
0 F 166 ; LOOK AT THE WORK LIST IN CASE ANYTHING GOT LEFT THERE 
51 00000000" GF 7E 0 F 164 10$:  MOVAQ GrIACSG -WORK_LIST,R1 — ;R1_= LISTHEAD FOR WORK IN PROGRESS 
5 Bl OF 6 165 15$:  REMQUE a(R1) SREMOVE NEXT ENT 
06 1D OO3A 166 20$ ‘LIST EMPTY = DON NE 
0482 60 OF O003C 16 INSQUE (RO) pee S INSERT AT END “ot FREE LIST 
F411 0040 «(168 BRB 15$ :G0 BACK FOR MOR 
004 189 
004 170 ; 
04 4 : DELETE PO SPACE 
7E 7C 004 158 20$:  CLRQ =(SP) 52 LONG WORDS FOR RANGE TO DELETE 
52. SE DO 0044 17% MOVL = SP, R2 TADDRESSED BY 
62 3FFFFFFF BF DO 0047 123 MOVL  &#<<1830>-1>, (R2) i STARTVA : TOP OF PO SPACE 
28 AS D5 Soce 177 TSTL § PHDSL_FREPOVA(RS) ;1F NOTHING TO DELETE 
10 13 0051 178 BEQL 4 “DON'T CALL THE SERVICE 
0053 17 SDELTVA_S_ INADR= (R2) ,ACMODE=#PSLSC KERNEL speLere PO SPACE 
6F 50 €9 B06 190 BLBC “RO,40$ ;BRANCH IF ERROR 
006 183 : DELETE P1 SPACE 
0063 «183 : 
0063 184 25$: 
62 06 0063 185 INCL. (R2) *STARTVA = LOWEST P1 SPACE ADR 
00000000' EF 00000200 ar C 006 186 SUBL3 #512, CTLSGL_CTLBASVA,4(R2) 
007 187 sENDVA = Met yt P1 SPACE ADR 
007 188 sBELOW THE FIXED REGION 
04 a2 3045 01 07 18 CMPL § PHDSL_FREPIVA(RS),.4(R2) :IF P1 SPACE 1S EMPTY 
37. 18 0077 190 GEG =s_-30$ “SKIP THE DELETE SERVICE 
079 191 SDELTVA_S INADR=(R2) ,ACMODE=#PSL$C_KERNEL ;DELETE P1 SPACE 
49 50 €9 6 198 LBC = “RO, 408 sBRANCH IF ERROR 
0000006A EF 16 00 19 JSB CHK_DBG_SYMTAB :SEE If ANY SYMBOL TABLE TO DELETE 
0 D5 O08F 19% TSTL = RO :IF ZERO, NONE TO DELETE 
iD (1 0 | 195 BEQL 308 :BRANCH [Ff NONE 
04 A2  7FFFFFFF 8F OD 9 196 MOVL #*X7FFFFFFF,4(R2) :DELETE DEBUGGER SYMBOL TABLE 
02 A2 06 A2 8B 098 19 MOVW  6(R2),2(R2) TOP 65K BYTES OF P1 
AO 198 SDELTVA_S INAOR=(R2) ,ACMODE=#PSL$C_KERNEL ‘DELETE DEBUG SYMBOL TABLE 
22 50 £9 AD 199 LBC "RO, 408 : BRANCH IF ERR OR 
50. 01 g 0 30$:  MOVZWL #S$$_NORMAL,RO UCCESSFUL EXIT 
51 AAS OB AS A 1 SUBW3 PHD$@_WSLIST(RS) PHDSW _pPUSENTERSD ER SIZE <0 DEFAULT WS-1 
31 4 j NCW Es RV sREAL SIZE OF BEF 
51 51 3c MOVZWL R1,R1 :GET IT INA LONGUORD 
7E 50 AS 4 MOVZWL PHOSW -WSSIZE(RS), (SP) GET NUMBER OF PAGES 
51 BE C C 5 SUBL (SP)+; R :19 CHANGE WO WORKING SET SIZE BY 
1 ¢ 6 BEQL 40$ H I 
C 35$ ADJWSL_S R1 : ata THE MO ORKING SET LIMIT 
51 76 a5 3C 00D2 8 40$ movzuee “PHD$W_EXTDYNWS(R5),R1 ENOUGH EXTRA DYNAMIC WORKING SET 
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PHDUT - PROCESS HEADER UTILITIES 16-SEP-19 55:46 VAX/VMS Macro V04-00 Pp PH 
04-000 INGRESET =" IMAGE RESET. DELETE IMAGE PAG SagePa198G Oo:c0:G9 Lene Sec BGb Ort Omagey age) VO 
D 09 ;TO RUN A REASONABLE MAGE? 
nn 2: an SC pe 1 SUBL3 R11, #2,R1 'MAKE SURE WE CAN Fen ag LEAST 2 
DA 1 ‘MORE PAGE TABLES WEN CURRENTLY HAVE 
16 15 ODA BLEQ 50% ‘BRANCH IF GOT ENOUGH 
Oo¢ 18 ; R1 IS THE NUMBER OF ADDITIONAL WORKING SET ENTRIES NEEDED 
52 OBA 50 AS) A1sOOOD 16° ADDW3 PHOS WSSIZE(RS) ,PHDSW -WSLIST (RS) R2 ;GET END OF WS POINTER 
18 AS) 652. =«©B1.SCOOE i$ CMPW Re PHOSW_WSQUOTA(RS) sIF WE ARE A ; 
OF 1B OE 18 BLEQU 35§ one AN NCH TF QUOTA: SUPPORTS NEEDED 
18 AS 51 Ao OE 9 ADDW R1,PHD$W_WSQUOTA(RS) QUOTA IS ARTIFICIALLY LOW, RAISE IT 
16 A 18 A? Bt oe CHPY pubs WSQUOTA(RS), PhDs USEXTENT(R5) EXT ENT MUST ALWAYS >= QUOTA 
16 A5 18 AS B60 OOF § MOVW § PHD$W_WSQUOTA(RS) ,PHDSW =SEXTENT(RS) BUMP EXTENT TO QUOTA 
cD Oo O0F8 4 BRB 35$ AND ADD MORE PAGES TO WORKING SET 
OOFA $ 50$: SETIPL #IPL$_ASTDEL ;RAISE IPL AND 
0172 30 OOFD BSBW  MMGSSECTBLRST :RESET THE SECTION TABLE 
019 5 SETIPL #0 LOWER PRIORITY LEVEL 
10 3 SEMPTY PST FREE LIST 
65 00000000'GF 7D 010 0 MOVQ G*CTL$GQ PROCPRIV, (R5) :SET DEFAULT PRIVILEGES 
50 008C C4 DO O10A 231 MOVL PCB$L_ARB(R4) 7GET ACCESS RIGHTS BLOCK ADDRESS 
60 65 7D O10F 34 MOva (R5) ,ARB$Q_PRIV(RO) sAND RESET COPY OF PRIVILEGE MASK 
Q00000000'GF D4 Oite 33 CLRL  G*CTLSGL_IAMGHDRBF :NO CURRENTLY ACTIVE IMAGE 
0118 3 : SEE IF ANY GLOBAL SECTIONS TO BE DELETED AS A RESULT OF RELEASING THE 
g118 $$ ; PROCESS’ ADDRESS SPACE 
55 Q0000000'FF DE 0118 238 . MOVAL QMMGSGL SYSPHD,R5 : SYSTEM PROCESS HEADER ADDRESS 
12 36. a5 01 E71 O1TF 39 BBC #PHDSV -DALCSTX, PHDSW_FLAGS(R5) ,60$ ; H IF NO GBL SECS TO DELETE? 
50 00000000'EF 3 0124 240 MOVAL EXESGL=G DMTX,RO sADDRESS OF OLOBAL SECTION MUTEX 
FED2" 01 B 41 BSBW Cote ° SLOCK THE MUTEX FOR WRITING 
O13 ‘8 : RETURNS AT IPL = ASTDEL MITH MUTEX LOCKED FOR WRITING 
1D 10 oie 45 ° BSBB § MMGSDALCSTXSCN 7SCAN AND DELETE GLOBAL SECTIONS 
FECD' 30 ot 9 4g BSBW § MMGS$GSDMTXULK Sia THE GLOBAL L SECTION MUTEX 
FECA’ 30 0133 248 BSBW $MMGS$DELGBLWCB [DELETE ANY WINDOWS RELEASED 
55 O0000000'GF DO 0136 249 60S: MOVL  G*CTL$GL_PHD,RS R =PHD ADDR 
00000000'GF 16 130 20 JSB G*MMGSCOMPRESS i SHRINK WSLAST BY WHATEVER WE CAN 
2c BA 143 28 POPR #*M<R2,R3,R5> :CLEAN OFF 8 BYTES INTO R2, R3 
14 5 SAND RESTORE RS 
0 baa 588 _ 
199 2$ yp teeeereerereeeee THE FOLLOWING CODE MUST BE RESIDENT *eeeeeneenenennee 
0000 0 35 -PSECT $MMGCOD 
$9 : LRARASAASAAALASAALELASELAALLALALLESERERRELAEREAARERRRREELERESEAEE REARS AALAAS SY 
5 6¢ MMGSCOMPRESS: 
6 SETIPL #IPL$_SYNCH :LOCK, PAGING DATABASE 
12 A 3¢ 0 64 MOVZWL PHDSWTWSLAST( (R5) QINTE TER TO END OF ACTIVE WS LIST 
51 08 AS 50 a5 Al 65 ADDW3 PHDSWTWSSIZE(R5) Po ose “wat isTin ),R1 ;SET MINIMUM SIZE OF WSL 
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PHDUT = PROCESS HEADER UTILITIES 16-SEP-1984 00:55:46 VAX/VMS Macro V04-00 Page 7 
v04-000 IMGRESET = IMAGE RESET, DELETE IMAGE PAG eset 1 8028569 LOYS SRCIPHDUTL MART wate, 
51 50 81 000 66 CMP RO R1 ZARE WE ALREADY AT MINIMUM? 
1¢ = 1F «001 6 BLSSU 100 :BRANCH IF SO 
52 O01 ¢ 1 : MNEGL #1 Re :SET UP FOR DECREMENT LOOP 
6540 D0 1 70$: TSTL  (R5)EROI ‘I$ ENTRY EMPTY? 
06 1 1 0 BNE 0$ ‘BRANCH IF NOT 
FFF5 50. 52. 551—is«éFDs«CQOTA— 27 ACBL _——R1,R2,RO,70$ SLOOP THRU MAXIMUM POSSIBLE REDUCTION 
50° 10 AS BI 0 0 f 80$:  CMPW PHOSWWSNEXT(RS) RO :1$ WSNEXT STILL IN RANGE 
04 8 4 27 BLEQU ? ‘BRANCH IF YES 
10 a5 50 B80 0 6 274 MOVW » PHD$W_WSNEXT (RS) [UPDATE TO SAFE PLACE 
12 a5 50 B80 0 A f3 90$:  MOVW ;PHD$WWSLAST(R5) SRESET TO NEW MINIMUM END 
24 10 0 F 8 100$: BSBB § MMGSCALCSWAPSIZE ;FORM THE SIZE IN R2 OF MINIMUM SWAP AREA 
50 20 AG D0 £8 MOVL PCBSL_WSSWP(R4) ,RO [GET SWAP TYPE VBN OF ALLOCATION 
16 13 0034 27 BEQL ss 1 ‘BRANCH IF NON-SWAPPABLE PROCESS 
51 52 a5 3C 0036 280 MOVZWL PHD$W_SWAPSIZE(R5),R1  ;SET SIZE OF CURRENT ALLOCATION 
52. 51 D1 OO3A 81 CMPL ~—sR'1_R [1S CURRENT HOLDING CORRECT? 
0p 13 030 ; BEQL ©: 120$ ‘BRANCH IF SO 
FFBE' 30 O3F : BSBW § MMGSALLOCSWPAREA SALLOCATE A SWAP AREA RORS CHANGED 
O¢ 15 0042 4 BLEQ 130$ SBRANCH IF THIS F FAILED, 
20 a4 «6550S sC0044 85 MOVL Rd. PCBSL_WSSWP(R4) SUPDATE SWAP FILE V 
52.05 52 BO 0048 6 MOVW § R2,PHDSWISWAPSIZE(R5) AND SIZE OF AREA 
004C 287 120$: SETIPL #0 ‘DROP BACK TO DESIRED IPL TO EXIT 
05 O04F 88 RSB : RETURN 
9050 30 130$: BUG_CHECK INSSWPFIL,FATAL ;BITMAP CONSISTENCY PROBLEM 
0054 9¢ NMGSCALCSWAPSIZE: : 
50 34 A4 36 AG Al 0054 29 PCBSW_PPGCNT(R4) ,PCBSW_ GPGCNT (RA), RO sGET CURRENT PAGE COUNT 
51 QO000'CF 3¢ 005A 29% MOVZWL W*SWPSGW_SWPINC,R1 ;ROUND UP’ TO NEXT GROUP 
52 D4 O05F $98 CLRL sR INIT COUNTS FOR WHAT WE NEED BACK 
52 51 CO 0061 296 .110$: ADDL  R1.R2 [BUMP OUR ALLOCATION AMOUNT 
52 50) «B1 (0064 ~—S «297 CMPW 3s RO. R2 [1S OUR PHYSICAL SIZE BIGGER THAN THIS? 
F8 iA 0067 298 BGTRU 116$ sHANDLE CORRECT MULTIPLE OF 8 CASE 


ribo eaISSESSMPARE® KACHEBE sean. ance ECRERSISE SOSESES NTHCICG MGR, Po 
8 ~SBTTL CHK_DBG_SYMTAB = ANY DEBUG SYMBOL TABLE TO DELETE? 
: INPUTS: 
; R5 = PROCESS HEADER ADDRESS (P1 SPACE IS OK) 
; OUTPUTS: 


: RO 0. IF DEBUG SYMBOL TABLE PAGE TABLE IS ALREADY EMPTY 
: N ZERO IF DEBUG SYMBOL TABLE PAGE TABLE NEEDS TO BE DELETED 
: R1 R2e RS PRESERVED 


. 
MP AAARAAARARARALALASASARSSSELA SELES SAAS ESSER ESSERE REESE ESE SEE TCS E Ea SY 


; eeeeeeeeeeeerere THE FOLLOWING CODE MUST BE RESIDENT «eeeenaeneeerenee 


COOSOSSCSOSOOSOSOOCOSOSOOOCOSOOSOOOOOOOOSOOOCOOSOOOO WO 


SOOCCOCOOOCOCCOOCSCOSOOSOOOOSOSOOOOSOOOOOOCOOOO 
0009 09 09 09 09 SIN NNN NAA AAA AAAAAAAOAAOAOAOSAIAAS | 
WDOAAAAOOOMOLOCOr>> Yr Yr Yr Yr Yr YYrYrrrrr>r>rrrrr wm 
WWIAIANNIWNIDIDPOPIDIPINIPINPINIDYD 2 2 OOO PF OCOOOOOCOOCO & 
BUF WN $ O OCONAUE WN O OONOA UE WN OOONOU ES Win 
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0000 .PSECT $MMGCOD 
: LAB RAAASAAALASALALALALLASALAESELESEELAESESE ELA SE SELES SEALERS SSE CEES Ee Eee aa 
CHK_DBG_SYMTAB: 
SETIPL W#IPLS$_SYNCH yNO SWAPPING WHILE LOOKING AT SPT 
15 09 EF EXTZV #VASVIVPN,AVASS_VPN,-  :SPT INDEX FOR FIRST 
50 00c8 C5 PHD$L~POBR(RS) ,RO [PAGE TABLE PAGE 
50 O0000'CF CO ADDL W*SGNSGL_PTPAGCNT,RO ; 
50 D7 DECL 0 INDEX TO LAST PAGE TABLE 
CB BICL3 #CCPTESN VALID !- ist T te LID yet 
PTESM_TYPT | PTESM_ TYPO PAGE T YPE BITS 
PTESM-PGFLVB>, AND BACKING STORE ADR OR PFN 
50 0000'DF40 78800000 8F SU "RCSCL- “SPTBASECROJ, RO’ 
;FROM SPT ENTRY OF LAST PAGE TABLE 
: WILL BE ZERO IF THE PAGE TABLE IS DEMAND ZERO 
SETIPL #0 :RESET IPL 
05 RSB SAND RETURN 
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vO4-000 = DECREMENT SECTION TABLE REFE oes Pi :46:0 LOYS SRCIPHDUTL MARS oo, (3 


= .SBTTL DECSECREF = DECREMENT SECTION TABLE REFERENCE COUNT 
: FUNCTIONAL DESCRIPTION: 


ov 
ww 
mo 
on 


OOOCoCoCoo wm 


vc 
mn 


THIS ROUTINE DECREMENTS THE REFERENCE COUNT ON THE SECTION TABLE 
SPECIFIED. IF THE REFERENCE COUNT GOES TO ZERO AND THE SECTION IS NOT 
PERMANENT, THEN THE SECTION DELETION LOGIC IS TRIGGERED. 


CALLING SEQUENCE: 


BSBW MMGSDEC 
BSBW MMG$SUB 


INPUT PARAMETERS: 
RO = NUMBER OF REFERENCES TO SUBTRACT IF ENTERED AT SUBSECREF 
RS = PROCESS HEADER ADDRESS 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
RO,R3 PRESERVED 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 


;SUBTRACT RO FROM SECTION REFERENCE COUNT 


DOOOSOOSOOOOOOOOOSOO OOOO OOOOOOOOOOOCOO 


LARRRAAARAAASASALARSSARAAEESELESESESE SESE SESE SEER RES RRS SARE REE RR RR SESS SD 


eeeeeeereneeeeee THE FOLLOWING CODE MUST BE RESIDENT eeeeeeeeneeerenee 
-PSECT SMMGCOD 


Bete Ge Se Se Se Se Se Se Be Se Be Ge Se Ge Se Se Se Se Se Ge Se Ge Se Ge Se Ge Ge Ge Ge Se Se Ge Ge Fe See Se Se Se Se Se 


0000 


0 

: : PRE RRARAASAAAAAAALALALALAAAAESELASEESLEL EERE EEAEEEAEEELEAES ESE RARER SERERS SY 
: ‘ .ENABL LSB 
8 MMGSSUBSECREF : : 

0 

4 


ADDL3  PHDSL_PSTBASOFF(RS).R 
SUBL RO SECSL_REFCNT(R2)CR 
BLEQ ~=s-:«108 


OOOO COCSCOOCOOCO COSCO OCOCOOCSOSOSOSOSOOOOOOOCOOOOOOCOOOOOOOoOO 


| ae, ee 


AS C 
18 A241 50 
0c 


F 


TION TABLE 
COUNT 
ERENCES 


5,R2 ;BASE ADDRESS OF SE 
14 ;REDUCE THE REFERENCE 
‘BRANCH IF NO MORE RE 


o-0n0 


wn — 


NOL ">> PP rr rr rrrrrr,rr,r,rr,rrrrrrrrrr,r,rrrr>r>rrrr>rrr>rr?r?r>r>rr?rvrr ™ 
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SECTION INDEX SC SaSEP=19R6 Soicalos | PeNeM es Magne VOE=00, ~~ i 


‘ ~SBTTL DALCSTXSCN = DEALLOCATE SECTION INDEX SCANNER 
FUNCTIONAL DESCRIPTION: 


>z 
rT 

-c 
o- 
o~- 
>r 
oon Lonel 
m— 


THIS ROUTINE SCANS THE SECTION TABLE LOOKING FOR SECTIONS WITH 
ZERO REFERENCE COUNTS TO BE DEALLOCATED. EACH SECTION FOUND IS UNCHAINED 
FROM ITS SECTION CHAIN, THE WINDOW IS RESTORED TO ITS CHANNEL IF 
IS THE LAST SECTION IN THE CHAIN, AND FINALLY THE SECTION IS DEALLOCATED. 


CALLING SEQUENCE: 
BSBW = MMGSDALCSTXSCN 
INPUT PARAMETERS: 
RS = PROCESS HEADER ADDRESS (P1 SPACE) 
GSD MUTEX LOCKED IF THIS IS THE SYSTEM PROCESS HEADER. ONLY SECTIONS 
ALLOWABLE EXCEPTIONS MUST NEVER HAVE REF CNT 20> anc ame: 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 


NONE 
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~-PSECT YSEXEPAGED 
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MMGSGL_ SYSPHD ,R5 :GET SYSTEM PROCESS HEADER ADDRESS 
MMGSDALCSTXSCN:: 


BBCCI #PHDSV -DALCSTX,PHDSW_FLAGS(R5).40$ ;BRANCH IF NOTHING TO SCAN FOR 


Fe at at at ot ot tt 
BOO MAIANTUINTTTU) 


WO OONOUS WN Oo 


TGOIOONOONOOCOCOMoOowwwwwwwww Pp ta Ft RN et pay EP RRR = BRR RE SRY HEH nn 


OmMOOOwOwOwO® > orv7c OV 


NU BONED ONIN 89 IOI NO ES OOOO 


cos 


OMMOMBWON— On WOOT O 


> db dee btm, been hare See bpee 4 4 4h 


— 
—S 


i 
$s 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


H 4 


ADER UTILITIES 16-SEP=1984 00:55:46 YAX/VMS Macro v04-00 Page 12 | 
DEALLOCATE SECTION INDEX SC g-SEF- 138 § :46:09 [SYS.SRCJPHDUTL.MAR; 1 . ry 
464 ADDL3 PHD SL -PSTBAS ASOFE (RS) R5,R3 ;BASE OF SECTION TABLE 
465 CVTWL PHD T(RS) Ri ZINDEX TO LAST SECTION ALLOCATED 
4 : 20$:  TSTL e t “REFENTCRSSERS SDEALLOCATE THIS SECTI 
4 BEQL [BRANCH IF NEED TO DEALLOCATE 
4 8 30$: ADDL gSECSC_ LENGTH@-2,R1 [NEXT SECTION INDEX | 
4 BLSS :BRANCH IF NOT AT END OF TABLE 
420 40$: RSB 
are : IF THIS IS NOT A PERMANENT SECTION, THEN NEED TO DEALLOCATE IT 
474 50$: ROTL  #<32-<SECSV_PERM+1>>, SECSW FLAGS(R3)CR1}. Re ;PERMANENT BIT TO SIGN B 
475 BLSS 08 ;BRANCH IF PERMAN NENT SECTION 
46 BSBB $ [D0 THE DEALLOCAT 
47 BRB 0$ ‘AND CONTINUE THE SCAN 
138 + NEED TO DEAL LOCATE E PROCESS OR GLOBAL SECTION, RSB FROM HERE WHEN DONE 
4 0 > MUST PRESERVE R 
4 ‘ bos BBS #<SECSV_GBL+<32-<SECSV_PERM+1>>>,R2,200$ ;BRANCH IF GLOBAL SECTION 
4 PUSHL i SAVE SECTION INDEX 
484 MOVL  SECS$L ~£CB(R3) 81) Re ANNEL LOnTROE BLOCK ADDRESS 
485 MOVL § CSW SECXFL(R3)CR1),RO ert FORWARD AND [BACKWARD SECTION INDEX LINK 
4 : BEQL 130 ‘BRANCH IF UCB TYPE SECT 
4 CMPW ORT to iE oSURRENT = FORWARD , THIS IS THE LAST 
4 8 BNEQ 1108 ON IN TH THE 
4 MOVL  SECS$L_WINDOW(R3)CR1), ccagie SiMe tre) BUT “WINDOW ADR BACK IN CHANNEL 
490 BRB 130$ ~ ;AND DEALLOCATE THE SECTION 
491 110$: CMPW CCBSL_WIND(R2),R1 TIF SECTION INDEX” IN CCB 
496 BNEQ 1208 [POINTS TO SECTION BEING DELETED 
49 OVW RO,CCBSL gi IND RZ) [THEN POINT IT AT THE FORWARD LINK 
494 120$: ASHL #-16.R SBACKWARD SECTION INDEX 
495 MOVAL CRsstr i" SADR OF BACKWARD SECTION TABLE ENTRY 
49 MOVW RO. C$ *SECKFLCRID TBAKSEC(FL) = CURSEC(FL) 
49 CVTWL =-RO.R TFORWARD SECTION INDEX 
498 MOVAL (R3)CR ;ADR OF FORWARD SECTION TABLE ENTRY 
49 MOV RO SECSu. SECKBL (RI) iFORSEC (BL) = CURSEC(BL) 
0 130$: POPR #*M<R1> OVER SECTION INDEX TO BE DEALLOCATED 
1 BRB MMGSDALCSTX DEALLOCATE THE SECTION TABLE ENTRY 
¢. [AND RETURN 
Os | : DEALLOCATE GLOBAL SECTION 
6 5008:  PUSHR #once 832, E SECTION TABLE BASE SECTION INDEX 
MOVAL (R3 pert apone S OF SECTION TABLE ENTR 
8 BBS #sEC a sings SECSW_ sandy ) ae GS :BR IF GS IS IN SHM 
JSB MAGS DEG LSEC SDELETE THE GLOBAL SECTION 
10 2108: POPR #°M<R1LR3> TRESTORE SECTION TABLE BASE AND INDEX 
12 ; 
18 ; THIS SECTION IS IN SHARED MEMORY. CHECK IF IT IS READY TO BE DELETED. 
14 ; NOTE THAT ALL SHARED MEMORY GLOBAL SECTIONS MUST BE PERMANENT. SINCE THIS 
15 : ONE IS NOT PERMANENT, A SDGBLSC REQUEST MUST HAVE BEEN ISSUED FOR IT. 
19 Sun_6s: | 
18 BSBW HMGSDELSHAGS :CHECK IF SHM GS CAN BE DELETED 
19 BRB 210$ [CONTINUE SCAN 
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L 
DEALLOCATE SEC 746:0 SYS.SRCJPHDUTL MAR; 1 (7) 
+8 «SBTTL DALCSTX = DEALLOCATE SECTION TABLE INDEX 
; FUNCTIONAL DESCRIPTION: 


PHDUT = PROC 
v04=000 DALCST 


THIS ROUTINE PLACES THE GIVEN SECTION TABLE ENTRY ON THE THE 
: SECTION TABLE FREE L ste TURNING ON THE SIGN BIT OF THE REFCNT LONG WORD 
; AS AN INDICATION THAT If IS NOT IN USE. 


; ; CALLING SEQUENCE : 
BSBW MMGSDALCSTX 
; ; INPUT PARAMETERS: 


Ri = SECTION TABLE INDEX 
RS = PROCESS HEADER ADDRESS 


: IMPLICIT INPUTS: 

; NONE 

: OUTPUT PARAMETERS: 

; RO,R1,R2,R3 PRESERVED 
; IMPLICIT OUTPUTS: 

NONE 

; COMPLETION CODES: 

; NONE 

SIDE EFFECTS: 

: NONE 


MER RAARARARARALALALALA SALES ELE SAREE EEE EERE R ERE ASRS ERE RES ER RE SERRE EES SO 


4 eeeeeerereeeeere THE FOLLOWING CODE MAY BE PAGED teeeeeenecereeere 
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0000 .PSECT YSEXEPAGED 
; PARAAAAAAAARALALALAALESALEAARE EERE REEARELALEEEEAREEEASEEE LEELA SERRE RGSS 
ANGSDALCSTX: : 
7E 55 20a5 (C1 ADDL § PHOSL PSTBASOFF(RS),R5,-(SP) ;BASE ADDRESS OF SECTION TABLE 
7E t it (1 ADDL3 #SECSC_REFCNT,(SP),-(SP) ;OFFSET TO REFERENCE COUNT 
9E 0 c MNEGL #1,a(SP)+CR1] NEG REF COUNT MEANS NOT IN USE 
9641 26 AS CVTWL a PSTFREE (RS) gcspreteil FREE POINTER INTO THIS SECTION ENT 
2605 51 £ nov PHOSW_PSTFREE(R in is SECTION INDEX IN FREE POINTER 
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TION TABLE INDEX Breet eBs BSizarcs PERC Mace vOKz00 rina 


ae .SBTTL ALCSTX = ALOCATE SECTION TABLE INDEX 
: FUNCTIONAL DESCRIPTION: 


THIS ROUTINE ALLOCATES A 
SECTION TABLE BELONGING TO THE 


CALLING SEQUENCE: 
BSBW MMGSALCSTX 
INPUT PARAMETERS: 


R4 = PROCESS CONTROL BLOCK ADDRESS 
R5 = protnee HEADER ADDRESS 


om 
m— 
on 


SECTION TABLE INDEX FROM THE 
SPECIFIED PROCESS HEADER 


IPL = L 
ASSUMPTION: ONLY GST IS ALLOCATED FROM THE SYSTEM HEADER 
AND THE GLOBAL SECTION MUTEX IS LOCKED FOR WRITING WHEN 
THIS IS DONE. OTHERWISE, THE SYSTEM HEADER WOULD REQUIRE 
IPL = SYNCH 
IMPLICIT INPUTS: 


NONE 
OUTPUT PARAMETERS: 
RO = SYSTEM STATUS CODE 
49 oi 30 Le INDEX IF SUCCESSFUL 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
SS$_SECTBLFUL SECTION TABLE FULL 
SIDE EFFECTS: 
NONE 


a 8 dd nd ad nd md md I HOODOO DOOOO OOO OOOO OO OWMMMcoccecoc ance ~~ 


PAO ODA NE WIN O ODA UNSW 9 OD NA NEW OS OD NAN E WW OW ONAU LS WO O00 


SHAT ATAAEA TARE AERA THERA AERA ARATE AAAEAAAAAAAAAARARAA AAA Ae eee eee et 
eaeteeeeeeeeeeere THE FOLLOWING CODE MAY BE PAGED teeeeeneereneeere 
~PSECT YSEXEPAGED 
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AMGSALCSTX: : 
CVTWL 
BEQL 


Da 
LDP DPPEDPPRP PDP DDD DEDEDE DD DEDEDE DDD DED DDD. DEDEDE DPD DED VPS TSS VSS TOSS IOSIOSIOSIOS 


ied fa 


PHDSW_PSTFREE(RS) ,R1 SEE IF ANY SECTIONS ON FREE LIST 
20$ ;BRANCH IF NONE 


Sz 


PHDUT - PROCESS HEADER UTILITIES 16-SEP=1 55:4 VAX/Vits Macro v04-00 Page 1 
vO4-000 ALCSTX = ALOCATE SECTION TABLE INDEX -SEP-1 “ Ly 46:0 EeYS. SRCJPHDUTL.MAR; 1 ° (8) 
50 55 20A cy 1€ § ADDL3 PHOS PSTBASOFF cect) BASE ADDRESS OF SECTION TABLE 
26 AS 6041 1F : cvTLi R1), PHD WP (R5)° :REMOVE THIS SECTION FROM FREE LIST 
g 1F OVZWL bees _NORMAL ,RO™ SUCCESSFUL COMPLETION 
a. .7 RSe ‘ae TORW TO. CALLER 
ire rk 3; NEED TO ALLOCATE A NEW SECTION 
8 9A O1FB 4¢ 20$:  MOVZBL #SECSC LENGTHA=2, »R1 ; SPACE REQUIRED IN LONG WORDS 
C 8B 1F 4 PUSHR SPRESERVE THESE REGISTERS 
oY 44 SBB NCSA tPap [TRY TO ALLOCATE PROCESS H 
¢ BA 45 POPR R3> SRESTORE SAVED REGISTERS 
08 E 46 BLBC Ron ;BRANCH IF NOT ENOUGH SPACE AVAILABLE 
24 aS 51 COA 4 SUBW = R1. PHDS$W_PSTLAST(RS) [UPDATE LAST ALLOCATED PST INDEX 
1 26 AS ; B 648 CVTWL PHOSW_PSTLAST(RS) ,R1 sSECTION INDEX 
OF 649 40S: SB 
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ER UTILITIES 
ALCPHD = ALLOCATE PROCESS HEADER 


~ PROCESS HEADER 
CAT 


PHDUT 
v04-000 


HE PROCESS HEADER 
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ER OF WORKING 
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ACE UNLESS SYSTEM PCB) 


L_COMPLETION 


ABLE FULL 


Soe 
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( 
D IF SUCCESSFUL 
F LONG WORDS AVAILABLE IF FAILED 
C 
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TATUS CODE 


MNwWoO 


R 
0 
E 
Pp 
S 
s 
D 
T 
MMGSALCPHD 
NUMBER OF LONG WORDS 


PROCESS CONTROL BLOC 
PROCESS HEADER ADDRE 
_NORMAL 
“SECTBLFUL 


-SBTTL ALCPHD = ALLOCATE PROCESS HEADER 
SIDE EFFECTS: 


FUNCTIONAL DESCRIPTION: 
R 
I 
l 
$ 
S 
R 
4 
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T 
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NONE 


Ru MNS TERS iuVvO 
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CALLING SEQUENCE: 
BSBW 
INPUT PARAMETERS: 
L 
OUTPUT PARAMETERS: 


1 
4 
5 
Pp 
IMPLICIT INPUTS: 
NONE 
0 
1 
IMPLICIT OUTPUTS 
NONE 
COMPLETION CODES: 
SS$ 
SS$ 
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S RERAAAAAAE RAE REA EERE EAA AAA EA THERE REREKEREE AREAS 
eeaeeeeeerenreeten THE FOLLOWING CODE MAY BE PAGED eeeeeeeeerereeeee 
»PSECT YSEXEPAGED 
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PHDSW_PSTLAST(R5) ,RO 
R> , PHOS _PSTBASOFF (RS) ,Re 


sWSLX FOR LAST 
> AD Ss 


;SECTION INDEX TO LO 
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AILABLE 
20 BRANCH IF NOT, TRY TO GET MORE 
#SS$_NORMAL ,RO ;INDICATE SUCCESSFUL COMPLETION 
AND RETURN 
XPAND PROCESS HEADER IF POSSIBLE 
PACE ADDRESS OF LOWEST ADDRESSED SECTION TABLE ENTRY 
SIRED LONG WORD COUNT 
NO. OF LONG WORDS AVAILABLE WITHOUT EXPANSION 


1,R2> sSAVE AVAIL, DESI 
STLAST(R5) ,RO ET OFFSET TO 's 
PHDSW_PSTLAST(R5) ,RO 


2 
#*M<RO,R1,R2> 
10$ 
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nn 

oO Mne-—<—mM—iIMN 

TN O-n 


*RESTO 
,PHDSL_PSTBASOFF(RS5),R1 ; 
R5) AT MAX'PS 


40 
MMGSEXPANDPHD 
#*R<CRI, 


#SS$_SECTBLFUL ,RO 
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BUG_CHECK ALCPHD,FATAL 
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v04=0 SECTBLRST = RESET SECTION TABLE “SEP=1984 03:46:09 [CSYS.SRCIPHDUTL.MAR;1 (10) 
, a Ww .SBTTL SECTBLRST = RESET SECTION TABLE 
f 133 3 FUNCTIONAL DESCRIPTION: 
72 «761 ; THIS ROUTINE IS CALLED TO COMPRESS THE SECTION TABLE gpORTION OF THE 
7 £66 ; PROCESS HEADER. IT WILL RESET THE POINTER TO THE LAST SECTION TABLE 
7e 763 | USED IF SOME ENTRIES PREVIOUSLY IN USE ARE NO [OceR SILTDeAteD. THIS 
72764 ROUTINE IS CALLED AT IMAGE RESET TIME AND ALSO WHEN TRYING TO 
f 65 ; EXPAND THE WORKING SET OR THE PROCESS SECTION TABLE. 
, ie : CALLING SEQUENCE: 
f 789 ; BSBW  MMGSSECTBLRST 
72 «771 INPUT PARAMETERS: 
027 ore : 
0 g U3 : R5 = PROCESS HEADER ADDRESS 
0979 775 : IMPLICIT INPUTS: 
027 76 i : 
0872 777 ; IPL = ASTDEL 
2 72778 ; 
72 779 OUTPUT PARAMETERS: 
0272 780 ; 
0272 781: RO,R3 PRESERVED 
027 ree i 3 
0272 783 ; IMPLICIT OUTPUTS: 
0272 784 ; 
O272 785 ; NONE 
0272 786 ; 
0272 787 ; COMPLETION CODES: 
0372 788 ; 
0272 789: NONE 
027 790 : 
0 72 791 ; SIDE EFFECTS: 
7 19¢ : 
0 72793 ; NONE 
72 «794: 
Bree 
037 P38 PARRA SAAAALASLALASALASAAEASLALLALELLESESES ESE AAAS ARE RR ESESAREERARARAERRELLES SR 
8 if £38 PRR AAAS ASEASE ELAS ESSS SY THE FOLLOWING CODE MAY BE PAGED eeeereeeeeeeereerene 
7 0: 
00009 , 0 .PSECT YSEXEPAGED 
7 8 : PRARASAASASLALAAALASASLALASAAASLASAEASELESASALEAAAREAASERRAAEAE RRR EAASERARAAL LAS EO 
7 4 
f 03 MMGSSECTBLRST: 
6A5 B4 027 09 CLRW_ PHD$W_PSTFREE(RS) “ASSUME ALL SECTIONS AVAILABLE 
52. 55 26 A5 cI 7 08 ADDL3 PHDSL-PSTBASOFF (RS) .RS, Re BASE. ADDRESS OF SECTION TABLE 
51 4 A5 é 7A 9 CVTWL  PHDSWIPSTLAST(RS), af GET OFFSET TO LAST SEC TBL ENTRY USED 
09 «7 f 10 BRB 30$ ENTER. ae LOOP 
A241 1 $: TSTL SECSL_REFCNT(R2)CR1) ;ARE THERE PAGES STILL MAPP SEC 
shoe 0B bD 18 " BGEQ 35s : ‘BR ON YES, PAGE MAPPED OR BACKING STORE 
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-SBTTL EXPANDPHD = EXPAND THE PROCESS HEADER 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE ATTEMPTS TO ADD A NEW PAGE OF ZEROES AT THE CURRENT 
END OF THE SECTION TABLE. IF THERE WAS SOME ROOM BEFORE THE PO PAGE 
TABLE, THEN THIS WILL SUCCEED AND THE SECTION TABLE IS MOVED INTO 
THE NEW AREA, 
CALLING SEQUENCE: 
BSBW  §MMGSEXPANDPHD 
INPUT PARAMETERS: 
RO = ADDRESS OF LOWEST ADDRESSED SECTION TABLE ENTRY 
P1 SPACE ADDRESS UNLESS SYSTEM PROCESS HEADER 
R4 = PROCESS CONTROL BLOCK ADDRESS 
RS = PROCESS HEADER ADDRESS (P1 SPACE UNLESS SYSTEM HEADER) 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
S$S$_SECTBLFUL 
SIDE EFFECTS: 
NONE 


SECTION TABLE FULL 


PHDUT = PROCESS HEADER Br iL TEES a oR 0: 255: +66 es Macro V04-00 Page $8 
v04-0 EXPANDPHD = EXPAND THE PROCESS HEADER -SEP-1 46:0 SYS.SRCJPHDUTL.MAR; 1 (12) | 
AA a 
AA 1h | svsvevesesecvececeseencencucosenensacncnsencesonenentosececensetess 
BA 3 
nr 9 3 eeeeeeeeeeeeeere THE FOLLOWING CODE MUST BE RESIDENT seeeeereeeneereee 
0000 +3 ¢ -PSECT SMMGCOD 
44 | Resanonncscseis gv titan os oo 
B : 
0B6 $ MMGSEXPANDPHD: 
+43 SETIPL iat By ;PROTECT PROCESS HEADER DATA BASE 
0071 8F Be 3 8 PUSHR” c. pene : 
56 20A5 D BD OVL OR URSARGD R6 ;BYTE OFFSET TO END OF SECTION TABLE 
52 55 38 gf 0C1 90 ADDL3 Re _ oR 3P1 SPACE Sa tH FOR THE NEW PAGE 
FF 8 OC 91 SBW MMGSPTEADRCHK 'GET ITS PTE ADDRESS 
6 D 0c 3 TSTL 3P1 PTE shoud BE ZERO 
OD 1 Ree 9 BEQL 5$ TBRA NCH IF OK 
cc 94 3$: SETIPL stan TS ASTeE :BACK TO AST LEVEL 
0071 8F RA OCF 95 POPR #*mcrOd ,R6> FIX § 
50 O021C 8F C 00D3 38 MOVZWL #SS$_ séererruc RO {SECTION TABLE FULL 
05 0008 89 RSB 
at 
0009 00 ; The process header will be Limited to <working set quota>/2 pages. 
0009 901 ; This is necessary to prevent it from opeupy ng the whole working set 
Babe O06 3 when the extent:quota ratio is extremely large. 
52 18 AS 3C 9909 904 5s: MOVZWL PHDSW_WSQUOTA(RS) ,.R2 
52 08 AS) «Ae «(00DD O90 SUBW  PHDSW-WSLIST(RS) ,R2 ;QUOTA 
28 5 FF a 7 Bee. an6 ASHL a-1.R2 :DIVIDE IT BY 2 
; 56 F7 8F 7 0E6 90 ASHL -9,R6,R :PAGES OF ag itt ee - ARRAYS 
5 00000900 "EF AQ a0 908 ADDY SUPEgU” BAKPTE 3 [ADD IN THE ARRAY 
D5 1A OF 910 BGTR ;TOO MANY PAGES 
52 6C A4 56 C1 OF 911 ADDL R6,PCBSL_PHD(R4) ,R2 ; SYSTEM ADR OF NEXT 
OFC 318 A a a ‘x OF eg HEADER 
FFO1’ 30 OOFC 91 BSBW C1) allt Usi3 E D'OR PTE FOR SYSTEM PTE 
6 43 ton ons BiG ‘BRANCH IF ERROR Sn 
63 06 18 9C 103 318 ROTL PTESV_PROT, pareres _ERKW, (R3) ; MALE ANT O DEMAND ZERO PAGE 
13 818 10$: SETIPL FIPLS RASTDE sBACK TO PAGE FAULTABLE STATE 
10A 919 ; This code must run at ASTDEL to both allow the pagefauit and prevent a growth 
134 9 9: ; AST. This code is allowed to boop. since the swapper could break in here and 
10A 921 ; remove this page from the worki ng set as the result of a shrink, although 
’ : 3 gi 3 unlikely= and is never expected to do it continuously causing a code Loop. 
6C B446 95 10A 924 . TSTB @PCBSL_PHD(R4) CR6) ;FAULT THE PROCESS HEADER PAGE 
10E 925 : THROUGH ITS SYSTEM ADDR 
196 9 § SETIPL #IPL sPROTECT PROCESS HEADER DATA BASE AGAIN 
52 6C B44 9 11 3 MOVAB a SPMD CRGDERGI, R2 ;ADDRESS OF NEW PROCESS HEADER PAGE 
FEE7* 3 118 8 BSBW CR) 3GET SYS VIRTUAL ADR OF SPTE 
50 63 OD 11 MOVL 3GET THE SPT ENTRY 
B 14 Q1I1C ? BGTR ;LOOP IF ENTRY EXISTS, pur IS NOT VALID 
13° O11 BEQL EEPANDPHDBUG ;BRANCH IF NOT VALID, ERR 
0 odd ig G ¢ PUSHL :SAVE THE SPTE 
50 50 15 00 EF 01232 9 EXTZV #PTESV_PFN,#PTESS_PFN,RO,RO ;GET THE PFN 


§ 
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v04=000 EXPANDPHD = EXPAND THE PROCESS HEADER Verge -SEP=1 =}383 88: :46:0 YeYS. SRCJPHDUTL.MAR; 1 (33) v¢ 
1 4 CouPPF Abas 
5 MOVZWL <aurPF PFNSAX WSLXCROI, R1>,- :GET WORKING SET LIST INDEX 
107 ‘ IMAG tig PAG D 
6541 20 CB O1eD : BISL #WSL$M sUSCOcK. (R5)CR1] ;SET THE WORKING SET LOCK 
131 9 ;PROCESS HDR PAGE IS NOT A CANDIDATE 
131 940 [FOR WORKING SET LIST REPLACEMENT 
0 131-94 PUSHR #*M<R2,R3> i SAVE SVAPTE VA FROM SWAPWSLE 
52 OE A ¢ 1 ; he MOVZWL PHDSW WSDYN(RS) ,R2 :WSLX TO SWAP TO 
FEC6" 1 94 BSBW MMGSSQAPWSL E SWAP INTO LOCKED PORTION 
oF AS B6 013A 944 INCW § PHOSW_USDYN(RS) AMI PORTION STARTS ONE HIGHER 
OE AS) a BI 1 43 CPW P PHDSW~ “USNEXT CRS), PHD$W vib yneass -MAKE SURE WSNEXT IS OK 
10 AS 12 A BO 14 309 OVW BuHDSW WWSLAST (RS), ,PHDSW -WSNEXT(RS) MUST RESET IT 
0 A 0149 948 20$ POPR VER VA, SVAPTE 
FEB?’ 30 0148 94 BSBW ans sttaloveds SRECOMPUTE EXTRA DYNAMIC WSLE COUNT 
52 55 56 cI 14— 950 ADDL3 R6,R5,R2 :P1 SPACE ADDRESS FOR THE NEW PAGE 
FEAB' 30 0152 951 BSBW MMGSPTEADRCHK GET ITS PTE ADDRESS 
51 8— dO 015 93¢ MOVL  (SP)+,R1 SLOAD SVAPT 
63 05 0158 95 TSTL = (R3) :P1 PTE TOO SHOULD HAVE BEEN ZERO 
| Bs 13A 954 BEQL 0$ SBRANCH IF OK 
7E 51 #15 OO EF O15¢ 955 EXTZ2V #PTESV_PFN,MPTESS_PFN,R1.-(SP) ;GET THE PFN 
7E 63 #15 OO EF 0161 996 EXTZ2V #PTESV-PFN.#PTESS_PFN,(R3),-(SP) ;GET THE P 
8E BE 01 166 95 CMPL (SP)+, TSP)+ TSTILL OK’ IF SAME, SWAP AT IPL 2 
169 958 ; COULD CAUSE THIS 19 BE FILLED 
8 12 0169 959 30$:  BNEQ EXPAN PHDBUG RANCH IF IT WASN'T, ERROR 
63 51 00 168 360 40$:  MOVL Ri tFILL IN P1 SPACE PTE 
bee 96¢ : NOW MOVE THE SECTION TABLE PAGE(S) TO OPEN UP SOME SPACE BETWEEN 
O16E 963 : THE WORKING SET LIST AND THE SECTION TABLE. 
O16E 964 : MUST NOT LOWER IPL AT THIS POINT BECAUSE MODIFIED PAGE WRITER MIGHT 
16£ 965 : TRY TO ACCESS THE SECTION TABLE. 
16E 966 ; R2_= Pl VIRTUAL ADDRESS OF 1ST BYTE OF NEW PAGE 
IE aH : O(SP) = ADDRESS OF LOWEST ADDRESSED SECTION TABLE ENTRY 
: MOVAL  *X200(R6),PHDSL_PSTBASOFF(RS) ;PST BASE IS 1 PAGE HIGHER 
= - £6 BO 195 355 MOVES (355 R1 3 sADDRESS OF 1ST SECTION TABLE ENTRY 
52 «5102S C2:s«0177—Ss«*977 SUBL_ R1,R2 :NO. OF BYTES OF SECTION TABLE TO MOVE 
0200 c1 61 52 17A 97 moves RB. (RI) 2x200(R1) SMOVE SECTION TABLE 1 PAGE 
96 0200 8F 00 61 00 2c O01 97 MOVC5 #0,(R1),#0,#°X200,a(SP)* ;ZERO 1 PAGE FROM 1ST SEC TBL ENTRY 
50 01 3¢ 01 974 MOVZWL #S$$_NORMAL,RO :SET SUCCESS CODE 
1 975 SETIPL #IPLS_ASTDEL ‘BACK TO AST LEVEL 
0070 8F BA 01 97 OPR #*°M<RZ,R5S,RO> TRESTORE REGISTERS 
5 19 4 RSB [AND RETURN 
19 358 t DATA BASE INCONSISTENCY 
19 3 ? —XPANDPHDBUG: 
19 3 : BUG_CHECK EXPANDPHD, FATAL 
197 984 END 


G6 5 p 
wut) - “SEP=1984 00:55:46 YAX/VMS Macro _V04-00 Page 24 | | 
coe table or seen meres i oe 99:23:98 YoYS. SRCJPHDUTL.MAR; 1 ° (12) $ 
‘ € 
= 7R PHDSV_DALCSTX = 1 
ic éPubBUG 0000365 R 83 PHOSW-DFWSCNT = H i 
ARBSQ_PRIV = PHDSW_EXTDYNWS = 7 4 
BUGS_ALCPHD eeeeeeee xX PHDSW_FLAGS 2 or 
$~EXPANDPHD teeeeeee =X PHDSW-PSTFRE z 
Bucs “PSTLA = 4 PI 
BUGS_INSSWPF IL eereerer =X PHD SN STLAST . 3 4 
etBéc ino. = Goooseee | * PHOBA SOT = 1099086 
hk D8G ¢ SYMTAB 000006A R PHDSW_WSEXTENT s 1 o 
sc Set ASVA ereneeee =X PHDSW-WSLAST = 1 
ETL SeC~IMGHORS PHDSW_WSLIST = 0000000 PI 
trtect ens one ceeesees puDSY-WShenT = 839008 P 
CTL$GQ~PROCPRIV eererere =X PHD SM “WSQUOTA . 30 i . 
EXESGL-GSDMTX eereeeee =X PHDSW_W . 3000 ; a 
EXPANDPHOBUG. eee ee E PRISC. ERKW = 99000006 PI 
$GL~IMAGE_LIST teereeee XxX 0 PSLSC- KERNEL = 0000000 
aC tu 1ST eeeeeeeer = X 0 PTESH~PGEL VB = OOSFFFFF o 
IPL$_ASTDEL” = 0000000 PTESM_TYP = 00400000 4 
$~ SYNCH = 0000000 PTESM_TYP1 = 04000000 Pr 
MMGSALCPHD 00000210 RG 0 PTESM_VALID = 4 4 8 4 
MMGSALCSTX 000001E7 RG 0 PTESS_PFN = 0000001 4 
OCSWPAREA eeeeeeee §= 86 PTESV_PFN = 00000000 
se ry T = 00000018 PI 
menconeatas geseuues mo 3 nbaterT® secre ‘ 
PACSDALCST 00001D0 SCHSLOCKW aeereeer 4 
TXSCN 000014D RG SECSC_LENGTH = 00000020 
WACEDAL CoTXecNt 0000014 SECS$L-CCB = 90000008 ‘ 
MMGSDECSECRE 0000009 0 SECSL_REF CNT = 0000001 “ 
MMGSDELGBLSE teeeeree = X 0 SECSL_WINDOW = 0000000¢ or 
SDELGBLWCB eeeeneee =X 0 SECS$V_GBL = 00000000 
MACSDEL SHHeS eeneeeee =X SECSV-PERM = 0000000E + 
MMGSE XPANDPHD 00000086 5 SECSV_SHMGS = 4k n 
MMGSEXTRADYNWS tereeeee x o SECSW_FLAGS = $008 14 “ 
MMGSGL_SPTBASE terereee YX 0 SECSW_SECXBL = 00000006 o 
MMGSGL-SYSPHD teererer XX 0 SECSW"SECXFL = 00000004 . 
Bat eeeeeree = KX 0 SGNSGC_PTPAGCNT tereeeee =X 03 
US InGRESET 00000000 RG SHM_GS 00001CB R 02 
MMGSPTEADRCHK eeeeereee 6X 8 SS$_NORMAL = 00000001 “ 
MMGSSECTBLRST 0000272 R $S$_SECTBLFUL = 0000021C 4 
MMGSSUBSE CREF 000008A RG SWPSGW_BAKPTE eeeeeree . 
MMGSSVAPTE CHK eaeeeeee xX SWPSGW" SWPINC aeeeeeee =X 4 
MMGSSWAPWSLE eeceeeee =X SYSSADJWSL eeeneree GX . 
eeeteneee x 0 SYSSDELTVA terenene GX 0 
ioe = 8 00000 VA$S_VPN = 00900005 4 
wi = VASV_VPN zs 
PCBS ARS = 00 9 i WSLSA_WSLOCK = 00000020 PI 
PCBSL_ARB “ 
PCBS$L_PHD = 3 0 f a 
PCBSL_wWSS z mr 
PCB$W_GPGCNT = a 
PCBSW” PPGCNT = , 
R wSix Sait 5 
PHOSL_FREPOVA = 5 
PHDSL— FREPIVA s . 
PHD z , 
PHDSL~ “PS TBASMAX = , 
PHD$L_PSTBASOF F = 


PHDUTL 
Psect synopsis 


PSECT name 


SABSS 

YSEXEPAGED 

$MM 

2$1NITSPFN_F IXUP_TABLE 


Phase 


Initialization 
Command processing 
Pass 

Symbol table sort 
Pass 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


Macro Library name 


55$DUA 
TOTALS (all Libraries) 


Ine working set Limit was 1800 pages. 
85759 bytes (168 pages) of virtual memory were used to buffer ‘ 
There were 80 pages of symbol table space allocated to hold 1477 non-local and 48 local symbols. 
984 source lines were read in Pass 1, producing 


pages of virtual memory were used to define 2 


Son ment 


1613 GETS were required to define 24 macros. 


~ PROCESS HEADER UTILITIES 


tomer oennmrwen er eoc} 


! Psect synopsis ! 


tamer mew eee mere eh 


PSECT No. Attributes 


-) 00 ¢ 9. NOPIC 
-» Q1 ¢ 4.) NOPIC 
68 ) ( 2.) 
407.) ( 3.) NOPIC 
6.) 04 ¢ 4.) 


Elapsed Time 


0. :00:02.3 
ue 
a 


2393: 


macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:PHDUTL/OBJ=OBJ$:PHDUTL MSRC$:PHDUTL/UPDATE=(ENHS:PHDUTL) +EXECMLS/LIB 


AX/VMS Macro v04-00 
SYS.SRCJPHDUTL MAR; 1 


ARRBE 


NOPIC 


memos en mews eer en eee mr coe + 


Performance indicators ! 
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WRT NOVEC BYTE 


he intermediate code 
1 object records in Pass 2 


ewe mee ewe eee ee eee} 


CORPORATION 
PROPRIETARY | 
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